﻿Imports DAO
Imports DTO
Imports GUI
Public Class ucTraCuuBenhNhan

    Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter

    End Sub

    Private Sub btntimkiem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntimkiem.Click
        Dim BN As New DanhSachKhamBenh_DTO()
        ' ma benh nhan

        Try
            BN.MaBenhNhan = Long.Parse(txtmabenhnhan.Text)
        Catch ex As Exception
            MessageBox.Show("Ma benh nhan khong hop le")
            Return
        End Try

        ' gioi tinh
        
        


        '' 
        Dim TraCuu_BUS As New BenhNhanBUS()
        Dim DT As New DataTable()
        DT = TraCuu_BUS.TimKiem_BUS(BN)
        DTVTraCuuBenhNhan.DataSource = DT
    End Sub

    Private Sub ucDanhSachKhamBenh_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        

    End Sub
End Class
